<?php

if (!defined('BASEPATH'))
  exit('No direct script access allowed');
/**
 * CodeIgniter
 *
 * An open source application development framework for PHP 5.1.6 or newer
 *
 * @package		CodeIgniter
 * @author		ExpressionEngine Dev Team
 * @copyright	Copyright (c) 2008 - 2011, EllisLab, Inc.
 * @license		http://codeigniter.com/user_guide/license.html
 * @link		http://codeigniter.com
 * @since		Version 1.0
 * @filesource
 */
// ------------------------------------------------------------------------

/**
 * CodeIgniter Text Helpers
 *
 * @package		CodeIgniter
 * @subpackage	Helpers
 * @category	Helpers
 * @author		ExpressionEngine Dev Team
 * @link		http://codeigniter.com/user_guide/helpers/text_helper.html
 */
// ------------------------------------------------------------------------

/**
 * Word Limiter
 *
 * Limits a string to X number of words.
 *
 * @access	public
 * @param	string
 * @param	integer
 * @param	string	the end character. Usually an ellipsis
 * @return	string
 */
if (!function_exists('word_limiter')) {

  function word_limiter($str, $limit = 100, $end_char = '&#8230;') {
    if (trim($str) == '') {
      return $str;
    }

    preg_match('/^\s*+(?:\S++\s*+){1,' . (int) $limit . '}/', $str, $matches);

    if (strlen($str) == strlen($matches[0])) {
      $end_char = '';
    }

    return rtrim($matches[0]) . $end_char;
  }

}

// ------------------------------------------------------------------------

/**
 * Character Limiter
 *
 * Limits the string based on the character count.  Preserves complete words
 * so the character count may not be exactly as specified.
 *
 * @access	public
 * @param	string
 * @param	integer
 * @param	string	the end character. Usually an ellipsis
 * @return	string
 */
if (!function_exists('character_limiter')) {

  function character_limiter($str, $n = 500, $end_char = '&#8230;') {
    if (strlen($str) < $n) {
      return $str;
    }

    $str = preg_replace("/\s+/", ' ', str_replace(array("\r\n", "\r", "\n"), ' ', $str));

    if (strlen($str) <= $n) {
      return $str;
    }

    $out = "";
    foreach (explode(' ', trim($str)) as $val) {
      $out .= $val . ' ';

      if (strlen($out) >= $n) {
        $out = trim($out);
        return (strlen($out) == strlen($str)) ? $out : $out . $end_char;
      }
    }
  }

}

// ------------------------------------------------------------------------

/**
 * High ASCII to Entities
 *
 * Converts High ascii text and MS Word special characters to character entities
 *
 * @access	public
 * @param	string
 * @return	string
 */
if (!function_exists('ascii_to_entities')) {

  function ascii_to_entities($str) {
    $count = 1;
    $out = '';
    $temp = array();

    for ($i = 0, $s = strlen($str); $i < $s; $i++) {
      $ordinal = ord($str[$i]);

      if ($ordinal < 128) {
        /*
          If the $temp array has a value but we have moved on, then it seems only
          fair that we output that entity and restart $temp before continuing. -Paul
         */
        if (count($temp) == 1) {
          $out .= '&#' . array_shift($temp) . ';';
          $count = 1;
        }

        $out .= $str[$i];
      } else {
        if (count($temp) == 0) {
          $count = ($ordinal < 224) ? 2 : 3;
        }

        $temp[] = $ordinal;

        if (count($temp) == $count) {
          $number = ($count == 3) ? (($temp['0'] % 16) * 4096) + (($temp['1'] % 64) * 64) + ($temp['2'] % 64) : (($temp['0'] % 32) * 64) + ($temp['1'] % 64);

          $out .= '&#' . $number . ';';
          $count = 1;
          $temp = array();
        }
      }
    }

    return $out;
  }

}

// ------------------------------------------------------------------------

/**
 * Entities to ASCII
 *
 * Converts character entities back to ASCII
 *
 * @access	public
 * @param	string
 * @param	bool
 * @return	string
 */
if (!function_exists('entities_to_ascii')) {

  function entities_to_ascii($str, $all = TRUE) {
    if (preg_match_all('/\&#(\d+)\;/', $str, $matches)) {
      for ($i = 0, $s = count($matches['0']); $i < $s; $i++) {
        $digits = $matches['1'][$i];

        $out = '';

        if ($digits < 128) {
          $out .= chr($digits);
        } elseif ($digits < 2048) {
          $out .= chr(192 + (($digits - ($digits % 64)) / 64));
          $out .= chr(128 + ($digits % 64));
        } else {
          $out .= chr(224 + (($digits - ($digits % 4096)) / 4096));
          $out .= chr(128 + ((($digits % 4096) - ($digits % 64)) / 64));
          $out .= chr(128 + ($digits % 64));
        }

        $str = str_replace($matches['0'][$i], $out, $str);
      }
    }

    if ($all) {
      $str = str_replace(array("&amp;", "&lt;", "&gt;", "&quot;", "&apos;", "&#45;"), array("&", "<", ">", "\"", "'", "-"), $str);
    }

    return $str;
  }

}

// ------------------------------------------------------------------------

/**
 * Word Censoring Function
 *
 * Supply a string and an array of disallowed words and any
 * matched words will be converted to #### or to the replacement
 * word you've submitted.
 *
 * @access	public
 * @param	string	the text string
 * @param	string	the array of censoered words
 * @param	string	the optional replacement value
 * @return	string
 */
if (!function_exists('word_censor')) {

  function word_censor($str, $censored, $replacement = '') {
    if (!is_array($censored)) {
      return $str;
    }

    $str = ' ' . $str . ' ';

    // \w, \b and a few others do not match on a unicode character
    // set for performance reasons. As a result words like über
    // will not match on a word boundary. Instead, we'll assume that
    // a bad word will be bookeneded by any of these characters.
    $delim = '[-_\'\"`(){}<>\[\]|!?@#%&,.:;^~*+=\/ 0-9\n\r\t]';

    foreach ($censored as $badword) {
      if ($replacement != '') {
        $str = preg_replace("/({$delim})(" . str_replace('\*', '\w*?', preg_quote($badword, '/')) . ")({$delim})/i", "\\1{$replacement}\\3", $str);
      } else {
        $str = preg_replace("/({$delim})(" . str_replace('\*', '\w*?', preg_quote($badword, '/')) . ")({$delim})/ie", "'\\1'.str_repeat('#', strlen('\\2')).'\\3'", $str);
      }
    }

    return trim($str);
  }

}

// ------------------------------------------------------------------------

/**
 * Code Highlighter
 *
 * Colorizes code strings
 *
 * @access	public
 * @param	string	the text string
 * @return	string
 */
if (!function_exists('highlight_code')) {

  function highlight_code($str) {
    // The highlight string function encodes and highlights
    // brackets so we need them to start raw
    $str = str_replace(array('&lt;', '&gt;'), array('<', '>'), $str);

    // Replace any existing PHP tags to temporary markers so they don't accidentally
    // break the string out of PHP, and thus, thwart the highlighting.

    $str = str_replace(array('<?', '?>', '<%', '%>', '\\', '</script>'), array('phptagopen', 'phptagclose', 'asptagopen', 'asptagclose', 'backslashtmp', 'scriptclose'), $str);

    // The highlight_string function requires that the text be surrounded
    // by PHP tags, which we will remove later
    $str = '<?php ' . $str . ' ?>'; // <?
    // All the magic happens here, baby!
    $str = highlight_string($str, TRUE);

    // Prior to PHP 5, the highligh function used icky <font> tags
    // so we'll replace them with <span> tags.

    if (abs(PHP_VERSION) < 5) {
      $str = str_replace(array('<font ', '</font>'), array('<span ', '</span>'), $str);
      $str = preg_replace('#color="(.*?)"#', 'style="color: \\1"', $str);
    }

    // Remove our artificially added PHP, and the syntax highlighting that came with it
    $str = preg_replace('/<span style="color: #([A-Z0-9]+)">&lt;\?php(&nbsp;| )/i', '<span style="color: #$1">', $str);
    $str = preg_replace('/(<span style="color: #[A-Z0-9]+">.*?)\?&gt;<\/span>\n<\/span>\n<\/code>/is', "$1</span>\n</span>\n</code>", $str);
    $str = preg_replace('/<span style="color: #[A-Z0-9]+"\><\/span>/i', '', $str);

    // Replace our markers back to PHP tags.
    $str = str_replace(array('phptagopen', 'phptagclose', 'asptagopen', 'asptagclose', 'backslashtmp', 'scriptclose'), array('&lt;?', '?&gt;', '&lt;%', '%&gt;', '\\', '&lt;/script&gt;'), $str);

    return $str;
  }

}

// ------------------------------------------------------------------------

/**
 * Phrase Highlighter
 *
 * Highlights a phrase within a text string
 *
 * @access	public
 * @param	string	the text string
 * @param	string	the phrase you'd like to highlight
 * @param	string	the openging tag to precede the phrase with
 * @param	string	the closing tag to end the phrase with
 * @return	string
 */
if (!function_exists('highlight_phrase')) {

  function highlight_phrase($str, $phrase, $tag_open = '<strong>', $tag_close = '</strong>') {
    if ($str == '') {
      return '';
    }

    if ($phrase != '') {
      return preg_replace('/(' . preg_quote($phrase, '/') . ')/i', $tag_open . "\\1" . $tag_close, $str);
    }

    return $str;
  }

}

// ------------------------------------------------------------------------

/**
 * Convert Accented Foreign Characters to ASCII
 *
 * @access	public
 * @param	string	the text string
 * @return	string
 */
if (!function_exists('convert_accented_characters')) {

  function convert_accented_characters($str) {
    if (defined('ENVIRONMENT') AND is_file(APPPATH . 'config/' . ENVIRONMENT . '/foreign_chars.php')) {
      include(APPPATH . 'config/' . ENVIRONMENT . '/foreign_chars.php');
    } elseif (is_file(APPPATH . 'config/foreign_chars.php')) {
      include(APPPATH . 'config/foreign_chars.php');
    }

    if (!isset($foreign_characters)) {
      return $str;
    }

    return preg_replace(array_keys($foreign_characters), array_values($foreign_characters), $str);
  }

}

// ------------------------------------------------------------------------

/**
 * Word Wrap
 *
 * Wraps text at the specified character.  Maintains the integrity of words.
 * Anything placed between {unwrap}{/unwrap} will not be word wrapped, nor
 * will URLs.
 *
 * @access	public
 * @param	string	the text string
 * @param	integer	the number of characters to wrap at
 * @return	string
 */
if (!function_exists('word_wrap')) {

  function word_wrap($str, $charlim = '76') {
    // Se the character limit
    if (!is_numeric($charlim))
      $charlim = 76;

    // Reduce multiple spaces
    $str = preg_replace("| +|", " ", $str);

    // Standardize newlines
    if (strpos($str, "\r") !== FALSE) {
      $str = str_replace(array("\r\n", "\r"), "\n", $str);
    }

    // If the current word is surrounded by {unwrap} tags we'll
    // strip the entire chunk and replace it with a marker.
    $unwrap = array();
    if (preg_match_all("|(\{unwrap\}.+?\{/unwrap\})|s", $str, $matches)) {
      for ($i = 0; $i < count($matches['0']); $i++) {
        $unwrap[] = $matches['1'][$i];
        $str = str_replace($matches['1'][$i], "{{unwrapped" . $i . "}}", $str);
      }
    }

    // Use PHP's native function to do the initial wordwrap.
    // We set the cut flag to FALSE so that any individual words that are
    // too long get left alone.  In the next step we'll deal with them.
    $str = wordwrap($str, $charlim, "\n", FALSE);

    // Split the string into individual lines of text and cycle through them
    $output = "";
    foreach (explode("\n", $str) as $line) {
      // Is the line within the allowed character count?
      // If so we'll join it to the output and continue
      if (strlen($line) <= $charlim) {
        $output .= $line . "\n";
        continue;
      }

      $temp = '';
      while ((strlen($line)) > $charlim) {
        // If the over-length word is a URL we won't wrap it
        if (preg_match("!\[url.+\]|://|wwww.!", $line)) {
          break;
        }

        // Trim the word down
        $temp .= substr($line, 0, $charlim - 1);
        $line = substr($line, $charlim - 1);
      }

      // If $temp contains data it means we had to split up an over-length
      // word into smaller chunks so we'll add it back to our current line
      if ($temp != '') {
        $output .= $temp . "\n" . $line;
      } else {
        $output .= $line;
      }

      $output .= "\n";
    }

    // Put our markers back
    if (count($unwrap) > 0) {
      foreach ($unwrap as $key => $val) {
        $output = str_replace("{{unwrapped" . $key . "}}", $val, $output);
      }
    }

    // Remove the unwrap tags
    $output = str_replace(array('{unwrap}', '{/unwrap}'), '', $output);

    return $output;
  }

}

// ------------------------------------------------------------------------

/**
 * Ellipsize String
 *
 * This function will strip tags from a string, split it at its max_length and ellipsize
 *
 * @param	string		string to ellipsize
 * @param	integer		max length of string
 * @param	mixed		int (1|0) or float, .5, .2, etc for position to split
 * @param	string		ellipsis ; Default '...'
 * @return	string		ellipsized string
 */
if (!function_exists('ellipsize')) {

  function ellipsize($str, $max_length, $position = 1, $ellipsis = '&hellip;') {
    // Strip tags
    $str = trim(strip_tags($str));

    // Is the string long enough to ellipsize?
    if (strlen($str) <= $max_length) {
      return $str;
    }

    $beg = substr($str, 0, floor($max_length * $position));

    $position = ($position > 1) ? 1 : $position;

    if ($position === 1) {
      $end = substr($str, 0, -($max_length - strlen($beg)));
    } else {
      $end = substr($str, -($max_length - strlen($beg)));
    }

    return $beg . $ellipsis . $end;
  }

}

/* End of file text_helper.php */
/* Location: ./system/helpers/text_helper.php */